home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / filutil / pa_st270.zip / EXAMPLE5.POM < prev    next >
Text File  |  1995-02-01  |  853b  |  36 lines
  1. ;
  2. ; NOTE:  A quick-reference summary of POM commands appears in EXAMPLE4.POM
  3. ;
  4. ;-----------------------------------------------------------------------------
  5. ;
  6. ; Divide up the input line because it is more than 255 characters wide
  7. ;
  8. SPLIT  005-100   102-168   170-300
  9.  
  10. ;
  11. ; Extract the fields
  12. ;
  13. IF     LineNum = ""  THEN Name    = $FLUPC[ 1  35]
  14. IF     LineNum = "1" THEN Phone   = $FLINE[53  67]
  15. IF     LineNum = "2" THEN Descrip = $FLINE[ 1  76]
  16.  
  17. ;
  18. ;  Remove surrounding spaces
  19. ;
  20. TRIM   Name     "B"  " "
  21. TRIM   Phone    "B"  " "
  22. TRIM   Descrip  "B"  " "
  23.  
  24. ;
  25. ; Build the line (but be sure that no OUT or OUTEND outputs over 255 characters)
  26. ;
  27. OUT    LineNum = ""  |"{Name}",
  28. OUT    LineNum = "1" |"{Phone}",
  29. OUTEND LineNum = "2" |"{Descrip}"
  30.  
  31. ;
  32. ;  Reset line counter
  33. ;
  34. IF LineNum = "2" THEN LineNum = "" ELSE LineNum+
  35.  
  36.